
*THIS PROGRAM READS A FILE OF WORDS TO INDEX,
*AND GENERATES THE APPROPRIATE ".INDEX" STATEMENTS
*FOR RUNOFF FORMAT.
*
*L.P. WADE   12-27-70

	INPUT('ACCEPT',2,80)
	OUTPUT('TYPE',99)
	CR = ASCII(15) ASCII(12)
	INPUT('INDEX',20,80)
	OUTPUT('OUT',21,"(1X,'.INDEX ',16A5)")
	INPUT('IN',22,80)
	OUTPUT('WRITE',21,'(1X,16A5)')

	IPAT = 'APPENDIX'
	&TRIM = 1;	&ANCHOR = 0	:(GETI)
BADI	TYPE  =  'FILE NOT THERE' CR
GETI	TYPE = 'INDEX FILENAME: '
	INAM = ACCEPT		:S(LOOP2)
	IDENT(INAM)
	IFILE(20,INAM)		:F(BADI)
LOOP1	D = INDEH			:F(GETI)
	IDENT(T)		:S(LOOP1)
	IPAT = T ! IPAT		:(LOOP1)

LOOP2	DELIM = ANY(" ()',./<>*:;!-#?%&" '"')
	PAT = TAB(*N) DELIM IPAT . OUT (DELIM ! RTAB(0)) @N

LOOP3	N = 0
LOOP4	T = IN			:F(EOF)
LOOP5	T PAT			:S(LOOP5)
	OUT = T			:(EOF)
	TYPE = 'SUCESS' CR
	OUT = '.PAGE'; OUT = '.PRINT INDEX'
	ENDFILE(21)
END
                                                                                                                                                                                                                                                                                                                                                                                                                            